Sub muestra_goto()
    Dim a As Integer
    a = 5
bucle:
    Debug.Print a
    a = a - 1
    If a > 0 Then GoTo bucle
End Sub
